home *** CD-ROM | disk | FTP | other *** search
CLISP byte-compiled Lisp program | 1993-06-05 | 10.9 KB | 187 lines |
- (SYSTEM::VERSION '(SYSTEM::CLISP2 14. LISP:T 210292.))
- #Y(#:TOP-LEVEL-FORM-1 #13Y(00 00 00 00 00 01 D4 36 02 30 07 19 01) "SYSTEM")
- #Y(#:TOP-LEVEL-FORM-2 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
- MACRO-CALL-ERROR REMOVE-OLD-DEFINITIONS
- #Y(MACRO-CALL-ERROR #17Y(00 01 00 00 00 02 D4 8B 02 AB 6A 63 6A AC AC 5A 03)
- "The macro ~S may not be called with ~S arguments"
- ) )
- #Y(#:TOP-LEVEL-FORM-3 #11Y(00 00 00 00 00 01 D4 2F 5F 19 01)
- (SPECIAL %RESTP %MIN-ARGS %ARG-COUNT %LET-LIST %KEYWORD-TESTS %DEFAULT-FORM)
- )
- #Y(#:TOP-LEVEL-FORM-4 #14Y(00 00 00 00 00 01 D4 D4 73 01 30 97 19 01)
- MACRO-MISSING-VALUE
- )
- #Y(#:TOP-LEVEL-FORM-5 #12Y(00 00 00 00 00 01 D4 D5 30 96 19 01) ANALYZE-AUX
- #Y(ANALYZE-AUX
- #64Y(00 02 00 00 00 03 AA 1A 2E 8B 00 BE 55 1A 20 D6 AB 8B 02 5A 02 D7 D8
- AC 2B 03 05 19 04 8B 00 85 2D 67 92 53 1F 69 92 53 70 93 53 54 70 59
- 02 14 0E 01 55 0F 01 7A 00 92 20 63 89 00 58 00 19 04
- )
- (NIL) %LET-LIST "in macro ~S: ~S may not be used as &AUX variable."
- "The rest of the lambda list will be ignored."
- "The lambda list of macro ~S contains a dot after &AUX." CERROR
- ) )
- #Y(#:TOP-LEVEL-FORM-6 #12Y(00 00 00 00 00 01 D4 D5 30 96 19 01) ANALYZE-KEY
- #Y(ANALYZE-KEY
- #585Y(00 03 00 00 00 04 5C 5B AD 01 04 96 1F 82 27 7E 04 03 14 23 00 80
- BB AB 23 01 80 BB AB 23 03 80 BE AB 23 04 80 B9 AB 23 05 80 B4 AB
- 23 06 80 AF AB 23 07 80 AA AB 23 08 80 A5 0E 0C 1C 16 AB 85 2D 80
- A0 95 1F 0E AB 6A 63 24 0D 08 95 53 14 63 0C 59 02 ED AB 85 2D 80
- 8E 95 1F 80 99 8B 03 85 2D 80 C3 95 53 1F 80 F8 95 53 70 86 A1 80
- F1 95 53 54 1F 80 EB 95 53 54 70 86 2D 81 42 95 53 53 EC 95 53 54
- 70 E3 B3 AD 5D 1F 6B 03 1F 73 02 0E 11 55 0F 11 95 54 54 1C 80 D4
- 95 54 54 70 86 2D 80 CC 95 54 54 53 EB 1C 80 C6 14 E9 5D 16 98 53
- 54 70 5D 20 6B 02 1F 5D 18 5D 19 9A 53 54 70 9B 54 70 73 03 5D 21
- 6B 02 1F 03 22 14 31 03 1F 1A 80 B7 74 06 1A 81 49 8C 04 B1 2E 02
- 1A 81 62 DD C8 1A 15 95 1A FF 67 AB 6A A0 63 0E 77 FC 02 AB E3 B3
- AD CE 1A 55 E6 D1 14 B2 98 1A 80 69 95 54 54 53 EB 1C 80 48 14 E9
- 5D 16 8B 06 5D 17 6B 02 1F 5D 18 5D 19 8B 08 9B 54 70 73 03 5D 1A
- 6B 02 1F 03 1B 1A FF A5 8B 03 6A A0 63 0E 77 FC 02 8B 03 E3 B3 AD
- E8 6B 03 1F 73 02 0E 11 55 0F 11 95 54 54 1C 08 95 54 54 70 85 2D
- FF B2 74 01 8B 03 E9 5D 16 8B 06 5D 1C 6B 02 1F 98 54 70 99 1A 26
- 5D 1D 5D 1E B2 98 53 14 2B 04 0B 1A 80 B2 74 01 95 53 54 70 E9 5D
- 16 98 53 54 70 5D 23 6B 02 1F 98 54 70 99 53 54 70 59 04 14 73 02
- 0E 11 55 0F 11 AA 7B 05 1A 80 89 95 54 54 53 EB 1C 80 48 14 E9 5D
- 16 AB 5D 25 6B 02 1F 5D 18 5D 19 AD 9B 54 70 73 03 5D 26 6B 02 1F
- 5D 27 31 03 1F 1A 3B 95 53 53 EC 36 01 78 A4 00 14 E3 B3 AD 5D 24
- 6B 03 1F 73 02 0E 11 55 0F 11 95 54 54 1C 08 95 54 54 70 85 2D FF
- B2 74 01 A8 E9 5D 16 AB 5D 28 6B 02 1F 98 54 70 99 53 54 70 59 04
- 14 73 02 0E 11 55 0F 11 AA 7B 05 03 29 10 2A 03 29 10 2B 00 10 2C
- 00 10 0C A1 53 54 70 B5 5E 16 B7 2B 04 2D 12 04 7A 04 1A FD E6 5D
- 30 AD 5D 31 AB 73 02 73 03 0E 32 55 0F 32 19 06 8A 04 08 5D 2E 5D
- 2F B2 2B 03 0B 16 05 89 01 5F 00 19 06
- )
- &ALLOW-OTHER-KEYS &AUX ANALYZE-AUX &ENVIRONMENT &WHOLE &OPTIONAL &REST
- &BODY &KEY "It will be ignored."
- "The lambda list of macro ~S contains a badly placed ~S." CERROR
- %DEFAULT-FORM 1. *KEYWORD-PACKAGE* GETF (NIL) %LET-LIST
- "It will be ignored."
- "The lambda list of macro ~S contains the invalid element ~S"
- (MACRO-MISSING-VALUE) IF EQ (MACRO-MISSING-VALUE) PROGN SETQ (NIL) (T)
- (MACRO-MISSING-VALUE) "It will be ignored."
- "The lambda list of macro ~S contains an invalid keyword specification ~S"
- (MACRO-MISSING-VALUE) (MACRO-MISSING-VALUE) (NIL) (T)
- (MACRO-MISSING-VALUE) (MACRO-MISSING-VALUE) (MACRO-MISSING-VALUE) (NIL)
- (T) (MACRO-MISSING-VALUE) 0. %MIN-ARGS %ARG-COUNT %RESTP ANALYZE1
- "The rest of the lambda list will be ignored."
- "The lambda list of macro ~S contains a dot after &KEY." KEYWORD-TEST
- QUOTE %KEYWORD-TESTS
- ) )
- #Y(#:TOP-LEVEL-FORM-7 #12Y(00 00 00 00 00 01 D4 D5 30 96 19 01) ANALYZE-REST
- #Y(ANALYZE-REST
- #92Y(00 03 00 00 00 04 95 1F 2F 8B 03 86 2D 2E 8B 03 8C 04 02 0F 02 A9 AD
- 73 02 0E 03 55 0F 03 92 51 1D 38 92 1F 1D 8B 00 23 07 20 8B 00 23 09
- 24 DF E0 AD AB 2B 04 06 19 06 D4 AA 5A 01 D5 AA 8B 05 5A 02 D8 D9 AD
- 2B 03 06 19 06 8C 00 AA AD 2B 03 08 19 06 8C 00 AC 2E 0A 19 06 19 06
- )
- "The lambda list of macro ~S is missing a variable after &REST/&BODY."
- "The lambda list of macro ~S contains an illegal variable after &REST/&BODY: ~S"
- %RESTP %LET-LIST "The rest of the lambda list will be ignored."
- "The lambda list of macro ~S contains a misplaced dot." CERROR &KEY
- ANALYZE-KEY &AUX ANALYZE-AUX "They will be ignored."
- "The lambda list of macro ~S contains superfluous elements: ~S"
- ) )
- #Y(#:TOP-LEVEL-FORM-8 #12Y(00 00 00 00 00 01 D4 D5 30 96 19 01) CONS-CAR
- #Y(CONS-CAR
- #33Y(00 01 00 00 00 02 5B 94 1F 0A 8B 02 D4 36 03 77 E3 00 1B 06 D5 AB 59
- 02 19 03 8C 00 95 54 55 19 03
- )
- ((CAR . CAAR) (CDR . CADR) (CAAR . CAAAR) (CADR . CAADR) (CDAR . CADAR)
- (CDDR . CADDR) (CAAAR . CAAAAR) (CAADR . CAAADR) (CADAR . CAADAR)
- (CADDR . CAADDR) (CDAAR . CADAAR) (CDADR . CADADR) (CDDAR . CADDAR)
- (CDDDR . CADDDR) (CDDDDR . FIFTH)
- )
- CAR
- ) )
- #Y(#:TOP-LEVEL-FORM-9 #12Y(00 00 00 00 00 01 D4 D5 30 96 19 01) CONS-CDR
- #Y(CONS-CDR
- #33Y(00 01 00 00 00 02 5B 94 1F 0A 8B 02 D4 36 03 77 E3 00 1B 06 D5 AB 59
- 02 19 03 8C 00 95 54 55 19 03
- )
- ((CAR . CDAR) (CDR . CDDR) (CAAR . CDAAR) (CADR . CDADR) (CDAR . CDDAR)
- (CDDR . CDDDR) (CAAAR . CDAAAR) (CAADR . CDAADR) (CADAR . CDADAR)
- (CADDR . CDADDR) (CDAAR . CDDAAR) (CDADR . CDDADR) (CDDAR . CDDDAR)
- (CDDDR . CDDDDR)
- )
- CDR
- ) )
- #Y(#:TOP-LEVEL-FORM-10 #12Y(00 00 00 00 00 01 D4 D5 30 96 19 01) ANALYZE1
- #Y(ANALYZE1
- #454Y(00 04 00 00 00 05 AC 01 03 95 1F 81 9A 7E 03 01 14 23 00 80 4B A9
- 23 03 80 63 A9 23 07 80 6D A9 23 08 80 68 A9 23 0A 80 6C A9 23 0D
- 80 81 A9 23 10 80 80 A9 23 13 80 86 89 02 80 D2 63 1F 30 AB 0F 1F
- 63 15 30 AB 0F 15 A9 86 2D 81 30 A9 B0 2D 18 14 73 02 0E 01 55 0F
- 01 1A 81 42 C0 1A 81 50 8A 05 79 95 54 1C 75 95 54 70 86 2D 6F 95
- 54 70 AE 73 02 0E 01 55 0F 01 7A 03 1A 81 25 8A 02 07 D8 D9 B0 AC
- 2B 04 06 75 02 1A 81 16 8C 03 B0 B0 2B 03 09 19 09 36 01 78 A4 00
- 02 0F 0B A8 B0 73 02 0E 01 55 0F 01 8C 03 A9 B0 2B 03 0C 19 09 E2
- CD 1A 02 E5 D0 14 B0 AC 2B 04 06 1A 80 E4 8C 03 AF 2E 14 19 09 93
- 1A 80 5F 97 54 53 1A 0D 8B 01 5D 1A B1 B2 67 18 97 54 20 6F 00 14
- 73 04 73 02 0E 01 55 0F 01 93 54 1F 80 B4 93 54 54 1F 80 AE 93 54
- 54 70 85 2D 80 75 5D 1B AF 95 54 54 70 5A 02 5D 1A B1 B2 67 18 97
- 54 70 59 04 1A 3D 63 15 30 AB 0F 15 0E 16 1C 16 A9 85 2D FF A8 93
- 1F 0E A9 6A 63 24 17 08 93 53 14 63 16 59 02 EB A9 85 2D FF 1A 93
- 1F 80 49 8B 01 85 2D FF 91 36 01 78 A4 00 14 94 54 20 FF B9 B0 2D
- 18 14 73 02 0E 01 55 0F 01 03 1E 10 1F 03 1E 10 15 00 10 0B 8B 0A
- B2 B9 B4 2B 04 20 12 03 93 54 54 1F 31 93 54 54 70 5D 1C 5D 1D B2
- 73 02 59 02 1A FE D4 93 20 06 5D 19 AF AB 5A 02 03 1E 10 1F 03 1E
- 10 15 00 10 0B B2 B9 67 18 B9 BB 67 18 2B 04 20 12 03 AF 2D 21 F1
- 7A 03 1A FE 62 8A 03 19 14 85 2D 07 03 22 14 AF AD 5A 02 AB B0 73
- 02 0E 01 55 0F 01 02 0F 0B 19 09 00 19 09
- )
- &WHOLE %LET-LIST
- "The lambda list of macro ~S contains an invalid &WHOLE: ~S" &OPTIONAL
- "It will be ignored."
- "The lambda list of macro ~S contains a superfluous ~S." CERROR &REST
- &BODY ANALYZE-REST &KEY %RESTP ANALYZE-KEY &ALLOW-OTHER-KEYS
- "It will be ignored."
- "The lambda list of macro ~S contains ~S before &KEY." &ENVIRONMENT
- "It will be ignored."
- "The lambda list of macro ~S contains ~S which is illegal here." &AUX
- ANALYZE-AUX %ARG-COUNT %DEFAULT-FORM 1. CONS-CAR
- "The lambda list of macro ~S contains an invalid element ~S" IF
- "The lambda list of macro ~S contains an invalid supplied-variable ~S"
- NOT NULL 0. %MIN-ARGS ANALYZE1 CONS-CDR
- "The lambda list of macro ~S contains an illegal &REST variable: ~S"
- ) )
- #Y(#:TOP-LEVEL-FORM-11 #12Y(00 00 00 00 00 01 D4 D5 30 96 19 01) REMOVE-ENV-ARG
- #Y(REMOVE-ENV-ARG
- #77Y(00 02 00 00 00 03 AA 1A 3A AB 5B 1A 08 8C 01 8B 02 7B 01 62 01 8B 01
- 24 00 73 A8 94 54 71 2F CB 16 01 EA 93 54 53 1A 20 92 54 1F 0B 92 54
- 70 86 2D 05 92 54 53 1B 52 D5 AB AD 5A 02 8B 00 23 00 67 7A 00 92 20
- 76 AB 00 14 3C 02 19 04
- )
- &ENVIRONMENT
- "In the lambda list of macro ~S, &ENVIRONMENT must be followed by a non-NIL symbol: ~S"
- ) )
- #Y(#:TOP-LEVEL-FORM-12 #12Y(00 00 00 00 00 01 D4 D5 30 96 19 01)
- MAKE-LENGTH-TEST
- #Y(MAKE-LENGTH-TEST
- #82Y(00 01 00 00 00 02 63 00 86 A6 04 0E 01 1B 20 63 00 85 A6 1E 0E 01 1B
- 23 63 00 63 04 88 01 2B 1E C4 14 D7 AB 73 02 0E 00 14 6A AB 59 03 19
- 02 00 19 02 D6 D7 AB 73 02 0E 04 1A 6D C3 1A 63 DB DC 63 00 6A AB D7
- AD 73 02 63 04 6A AB 73 04 59 02 19 02
- )
- %MIN-ARGS %RESTP > LENGTH %ARG-COUNT < /= NOT <=
- ) )
- #Y(#:TOP-LEVEL-FORM-13 #12Y(00 00 00 00 00 01 D4 D5 30 96 19 01)
- MAKE-MACRO-EXPANSION
- #Y(MAKE-MACRO-EXPANSION
- #189Y(00 01 00 00 00 02 93 1F 0F 8B 01 86 2D 0E 93 54 20 17 C0 14 8B 02
- 5A 01 D4 AA 5A 01 BF 1A 74 00 1A 80 74 14 59 01 1A 80 74 8B 01 94
- 54 70 95 54 71 A8 5C 5B 2F 64 3E 03 8A 01 06 D7 94 72 59 01 EB AC
- AE 2E 04 3E 02 C3 10 06 C3 10 07 00 10 08 00 10 09 00 10 0A 00 10
- 0B BB E0 5E 1B E1 2B 04 0E E1 67 0F E4 63 09 6A 65 5E 18 63 0A 6A
- 65 5E 1B 6B 03 20 6B 02 1F 8A 01 07 E5 AA E6 AB 59 04 EA E7 5E 1C
- E8 E1 E9 89 19 02 03 16 14 73 03 5D 17 89 19 FF 8A 03 18 14 89 1C
- FF 87 00 14 5D 19 5E 23 B1 73 03 73 01 6B 03 20 6B 03 1F 73 03 5E
- 1C 5E 1C 5E 19 3C 04 16 02 12 06 19 0A
- )
- "Cannot define a macro from that: ~S"
- "The name of a macro must be a symbol, not ~S"
- "Macro ~S is missing a lambda list." DECLARE REMOVE-ENV-ARG 0. %ARG-COUNT
- %MIN-ARGS %RESTP %LET-LIST %KEYWORD-TESTS %DEFAULT-FORM
- (CDR <MACRO-FORM>) <MACRO-FORM> ANALYZE1 MAKE-LENGTH-TEST LET* IF
- (MACRO-CALL-ERROR <MACRO-FORM>) FUNCTION LAMBDA &OPTIONAL <ENV-ARG>
- (DECLARE (CONS <MACRO-FORM>)) ((DECLARE (IGNORE <ENV-ARG>))) BLOCK
- ) )